home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VB--_HTML 198205202001.psc / VBHelpCompiler / Test Project / PropertyPage2.pag < prev    next >
Encoding:
Text File  |  2001-05-04  |  4.1 KB  |  143 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage ppClient 
  3.    Caption         =   "Client &Settings"
  4.    ClientHeight    =   2325
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   6765
  8.    PaletteMode     =   0  'Halftone
  9.    ScaleHeight     =   2325
  10.    ScaleWidth      =   6765
  11.    Begin VB.Frame Frame3 
  12.       Caption         =   "&Connection Data"
  13.       Height          =   975
  14.       Left            =   120
  15.       TabIndex        =   9
  16.       Top             =   1200
  17.       Width           =   6495
  18.       Begin VB.TextBox txtConnectionString 
  19.          Height          =   285
  20.          Left            =   180
  21.          TabIndex        =   3
  22.          Top             =   540
  23.          Width           =   6135
  24.       End
  25.       Begin VB.Label Label5 
  26.          AutoSize        =   -1  'True
  27.          Caption         =   "&Connection String:"
  28.          Height          =   195
  29.          Left            =   180
  30.          TabIndex        =   10
  31.          Top             =   300
  32.          Width           =   1305
  33.       End
  34.    End
  35.    Begin VB.Frame Frame2 
  36.       Caption         =   "&Remote Settings"
  37.       Height          =   1000
  38.       Left            =   120
  39.       TabIndex        =   5
  40.       Top             =   120
  41.       Width           =   4150
  42.       Begin VB.TextBox txtRemoteHost 
  43.          Height          =   285
  44.          Left            =   180
  45.          TabIndex        =   0
  46.          Top             =   540
  47.          Width           =   1815
  48.       End
  49.       Begin VB.TextBox txtRemotePort 
  50.          Height          =   285
  51.          Left            =   2160
  52.          TabIndex        =   1
  53.          Text            =   "1194"
  54.          Top             =   540
  55.          Width           =   1815
  56.       End
  57.       Begin VB.Label Label4 
  58.          AutoSize        =   -1  'True
  59.          Caption         =   "Remote &Port"
  60.          Height          =   195
  61.          Left            =   2160
  62.          TabIndex        =   8
  63.          Top             =   300
  64.          Width           =   885
  65.       End
  66.       Begin VB.Label Label2 
  67.          AutoSize        =   -1  'True
  68.          Caption         =   "Host&Name:"
  69.          Height          =   195
  70.          Left            =   180
  71.          TabIndex        =   7
  72.          Top             =   300
  73.          Width           =   795
  74.       End
  75.    End
  76.    Begin VB.Frame Frame1 
  77.       Caption         =   "&Local Settings"
  78.       Height          =   975
  79.       Left            =   4440
  80.       TabIndex        =   4
  81.       Top             =   120
  82.       Width           =   2175
  83.       Begin VB.TextBox txtLocalPort 
  84.          Height          =   285
  85.          Left            =   180
  86.          TabIndex        =   2
  87.          Text            =   "1193"
  88.          Top             =   540
  89.          Width           =   1815
  90.       End
  91.       Begin VB.Label Label1 
  92.          AutoSize        =   -1  'True
  93.          Caption         =   "Local &Port:"
  94.          Height          =   195
  95.          Left            =   180
  96.          TabIndex        =   6
  97.          Top             =   300
  98.          Width           =   765
  99.       End
  100.    End
  101. End
  102. Attribute VB_Name = "ppClient"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = True
  105. Attribute VB_PredeclaredId = False
  106. Attribute VB_Exposed = True
  107. Private Sub txtRemotePort_Change()
  108.     Changed = True
  109. End Sub
  110.  
  111.  
  112. Private Sub txtRemoteHost_Change()
  113.     Changed = True
  114. End Sub
  115.  
  116.  
  117. Private Sub txtLocalPort_Change()
  118.     Changed = True
  119. End Sub
  120.  
  121.  
  122. Private Sub txtConnectionString_Change()
  123.     Changed = True
  124. End Sub
  125.  
  126.  
  127. Private Sub PropertyPage_ApplyChanges()
  128.     SelectedControls(0).RemotePort = txtRemotePort.Text
  129.     SelectedControls(0).RemoteHost = txtRemoteHost.Text
  130.     SelectedControls(0).LocalPort = txtLocalPort.Text
  131.     SelectedControls(0).ConnectionString = txtConnectionString.Text
  132. End Sub
  133.  
  134.  
  135. Private Sub PropertyPage_SelectionChanged()
  136.     txtRemotePort.Text = SelectedControls(0).RemotePort
  137.     txtRemoteHost.Text = SelectedControls(0).RemoteHost
  138.     txtLocalPort.Text = SelectedControls(0).LocalPort
  139.     txtConnectionString.Text = SelectedControls(0).ConnectionString
  140. End Sub
  141.  
  142.  
  143.